home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / cuj9204.zip / 1004107A < prev    next >
Text File  |  1992-06-02  |  544b  |  31 lines
  1.  
  2. Listing 3
  3. **********
  4. void  myfunction1_a(char *format, va_list arg_ptr)
  5.     {  
  6.     vfprintf(stdout,format,arg_ptr);  
  7.     }
  8.  
  9. void  myfunction2_a(char *format, va_list arg_ptr)
  10.     {  
  11.     FILE *fp;  
  12.  
  13.     fp = fopen("TEST.DAT","a+");
  14.     vfprintf(fp,format,arg_ptr);  
  15.     fclose(fp);
  16.     }
  17.     
  18. void  myfunction3(char *format, ...)  
  19.     {
  20.     va_list arg_ptr1;  
  21.     va_list arg_ptr2;  
  22.  
  23.     va_start(arg_ptr1,format);
  24.     myfunction1_a(format,arg_ptr1); 
  25.     myfunction2_a(format,arg_ptr1); 
  26.     va_end(arg_ptr1); 
  27.     }
  28.  
  29. ***************
  30.  
  31.